This code will determine your default browser.

==============================================

Public Function DefaultBrowser()

    On Error Resume Next
    Dim Regentry As String
    Set TheReg = CreateObject("Wscript.Shell")
    Regentry = TheReg.RegRead("HKEY_CLASSES_ROOT\HTTP\shell\open\command\")
    Regentry = Replace(Regentry, Chr(34), "")
    Regentry = Mid(Regentry, 1, InStr(1, LCase(Regentry), ".exe") + 3)
    DefaultBrowser = Regentry
End Function